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PROGRAM DESCRIPTION GUIDE 


A. IDENTIFICATION 

Program Name - Ul-Node Thermoregulatory Model (Steady State 

Version) 

Programmer and 

Bioengineer Contact - J. I. Leonard, GE/TSS, Houston 
Date of Issue - July 15, 197U 


B. GENERAL DESCRIPTION 

A mathematical model of the huiian thermoregulatory system, previously 
developed (References 1-9), has been further modified (Reference 10) 
to give it greater user flexibility and to provide a more 
accurate description of evaporative water losses due to respiration, 
skin diffusion and sweating. This is a steady state version of the 
more general transient model (Reference 11) and is capable of giving 
rapid predictions of the behavior of the human thermostat at equilibrium 
(i.e., a zero heat storage rate) in response to a wide range of environ- 
mental conditions, postures and metabolic expenditures. 

The version presented here has been modified to operate in conversational 
mode using a remote terminal. Values for input parameters are entered 
prior to execution ani the user has the capability of choosing among a 
large number of variables for output. An emphasis has been placed on 
printing ouv those varia.-ics directly concerned with evaporative loss 
rate. An additional flexibility has been incorporated to provide for 
ease of performing parameter estimation studies. These and other modi- 
fications which have been made to the previous steady state version have 
been documented in Reference 10. 


C. USAGE AND RESTRICTIONS 

Machine, Operating System, and 

Compiler Required - Univac 1106, EXEC 8, FORTRAN V 

% 

P heral Equipment Required - Time -Sharing Terminal 


D. PARTICULAR DESCRIPTION 

The model in its present form is the result of many years of develop- 
ment, modifications, and revisions by several institutions including 
the John B. Pierce Foundation, Lockheed Electronics Division, General 
Electric /Houston, and NASA- JSC. The equations used, their derivations 
and assumptions can be found in the following documents (listed in 
chronological order) : 
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Reference 1 and 2: Descriptive papers by Dr. Stolwijk on the basic 

formulation of the model. Includes comparison of 
model behavior with some experimental data. 

Reference 3: A complete computer program documentation of the 

Lockheed version of the Stolwijk model modified for 
use with space suits and liquid cooled garments. 

This version contains improved equations for convec- 
tion, radiation and evaporation. 

References 4-7: Brief documentations of the General Electric modi- 

fications to the Lockheed version. This version 
excludes all logic and data not pertaining to the 
shirtsleeve mode. Includes improved equations for 
the convective heat transfer coefficient and evap- 
orative loss coefficient through clothing. A brief 
description of the steady 3tate algorithm is found 
in Reference 7. 

Reference 8 and 9: User's instructions for the General Electric version 

of both the steady state and transient models for 
use on the Xerox Sigma 3 and Univac 1110. Includes 
complete program listings and sample runs. 

Reference 10: Detailed descriptions of modificationa to the steady 

state version. A companion report to the present 
document. Includes validation of the respiratory 
and diffusion water loss segments. 

A software block diagram of the updated steady state version is given 

in Figure 1. The transient version is similar with the exclusion of 

Subroutine CONVRG. 


E. DESCRIPTION OF INPUT 

1) The program prompts the user to specify the output lists and values 
for the input parameters. Sample runs are shown in Appendix 2. 

The program will first prompt the user to designate the output lists 
desired. The user can choose from one or more of six output lists 
(see Section F) and designates the choice by typing a "Y" under the 
numbers 1, 2, 3, 4, 5, or 6. This prompt occurs only on the first 
run of a series of runs. If the user wishes to modify the output list 
after this„the run must be aborted either normally (Section G) or 
with "(g@X TIO" and re-executed with "@XQT" • 

2) The second prompt will be a question asking if a listing of input 
parameters is desired. User responds "Y" or "N" . This list will 
contain the parameter name, the index number (1-13) and the inter- 
nally stored value. This prompt only occurs during the first run of 
a series . 
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3) The third prompt will be instruction to change any of the 20 input 
parameters. Each parameter is designated by an index number and a 
variable name as shown in Table I. The pre-set internally stored 
values are given in parenthesis. Parameters can be modified by 
typing the index number of the parameter followed by the value . 

After all changes are made, the user types "-1" and this will be 
followed by a printout of the first 13 parameters. Parameters 
lU-20 will not be printed unless one of them has been changed from 
its internally stored value. This prompt will occur after each run. 
Any changes in input data will be carried over to subsequent runs 
automatically. 

If certain data is needed frequently to initialize any of the twenty 
input parameters they can be entered rapidly by placing them in file 
element "SSDATA" according to the format shown in Appendix 1. The 
user then simply types "@ADD SSDATA" following the prompt for input 
data. 

U) If the model does not converge a message "CONVERGENCE NOT OBTAINED" 
will be printed. This will occur very infrequently. If it does, 
refer to Reference 10, Section 3 for instructions to obtain a satis- 
factory solution. 


F. DESCRIPTION OF OUTPUT 


The user can choose from one or more of six output lists. These are 
given in Table II where the FORTRAN name for each variable is given in 
place of a numeric value . Samples of actual runs are given in Appendix 
2 . 


G. INTERNAL CHECKS AND EXITS 


Program echoes back each input parameter value after it is typed. Pro- 
gram checks for invalid input and prompts user to re-enter the value if 
format is incorrect. On occasion a "READ ERROR" message will be printed 
even though data was entered correctly. The user should merely repeat 
the entry. Entry does not he.ve to conform to numerical order of index 
number. 

Program insures that values for VCAB must be greater than 0.0 and that 
values of POS are either 1.0, 2.0, or 3-0. 

A normal exit is obtained after any run by typing "N” following the 
question "DO YOU WISH TO START NEW RUN?" 
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H. INDEPENDENT SUBROUTINES 


All subroutines for this program 
elements) are stored in the file 

(including source and relocatable 
’THERM" . 

ELEMENT NAME 

3UBRCWTINE NAME 

DESCRIPTION 

THERMAL 



Main program containing I/O 
commands 

SHIRTS 

SHIRT 


Calculation of insensible 
heat losses 

MANS 

MAN 


Thermoregulatory control sec- 
tion, calculation of evapora- 
tive water loss, blood flows, 
heat flows and temperatures 

VPFSS 

VPPS 


Algorithm to compute water 
vapor pressure from saturation 
temperature 

CONVRG 

CONVRG 


Convergence algorithm consisting 
of successive substitution and 
half-interval methods 

SSDATA 



Initialization data 


I. COMPUTER PROGRAM LISTING AND EXAMPLE OUTPUT 

Appendix 1 - Listing of main program, subroutines and data files 
Appendix 2 - Sample runs 



FIGURE 1 
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SOFTWARE BLOCK DIAGRAM 


jr | 


SUBROUTINE 

MAN 


INITIALIZATION 


SUBROUTINE 

SHIRT 


OUTPUT 


I 

sweat, shive 

& DILATION C 


R, CONSTRICTION 
ALCULATlONS 


Q RESPIRATORY WATER LOSS 
CALCULATIONS 


Q SKIN DIFFUSION CALCULATIONS 


Q SWEAT CALCULATIONS 


BLOOD FLOW CALCULATIONS 


SUBROUTINE 

SHIRT 


HEAT BALANCE & TEMf RATURE 
CALCULATION 


Q RADIATED & Q CONVECTIVE 
CALCULATIONS 


RETURN 


RESPIRATORY SENSIBLE | 
CALCULATIONS 


MAXIMUM EVAPOTA, DN *ATE 
CALCULA1 IONS 


SUBROUTINE 

CONVRG 

















TABLE I 
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INPUT PARAMETERS 


INDEX NO. 

PARAMETER NAME 

DESCRIPTION 

1 

RM 

Metabolic rate, BTj/hr 

2 

QRASAL 

Basal metabolic rate, BTU/hr 

3 

UEFF 

Useful work efficiency, percent 


U 

POS* 

♦Position of subject 

(Standing • 1.0, Sitting - 2.0, Prone ■ 3*0) 

5 

TCAB 

Cabin temperature, °F 

6 

TW 

Temperature of wall3, °F 

7 

TDEWC 

o 

Cabin dewpoint temperature, F 

8 

VCAB 

Cabin Free-stream velocity, ft/^iii 

9 

PCAB 

Cabin pressure, psi 

10 

G 

Gravity (Earth * 1.0, Moon « .167, Space = 0.0) 

11 

CLOV 

Clothing resistance (clo units) 

12 

EUG 

Emissivity of undergarment 

13 

CPG 

Specific heat of gas, BTU/lb-°F 

lU 

EPS I 

♦♦Error criteria for convergence, BTU/hr (0.25) 

15 

NMAX 

♦♦Maximum number of iterations allowed (500) 

16 

DEBUG 

♦♦Switch for debugging routine (Off * 0.0, On = 
(Normally off) 

17 

R1 

♦♦Sweat reabsorption parameter, BTU/hr (0.0) 

18 

R2 

♦♦Multiplier of sweat control parameters (l.Q) 

19 

PI 

♦♦Multiplier of convection coefficients (1.0) 

20 

P2 

♦♦Multiplier of radiation coefficient (1.0) 


* The body surface areas for convection and radiation are internally set 
to the following values according to the input value of POS : 


1 . 0 ) 


POS 

CONVECTIVE AREA(ft^) 

RADIATIVE AREA(fx ) 

1.0 

19-5 

15-5 

2.0 

15.5 

11.5 

3.0 

12.5 

9-5 


** Normal values for these parameters are given in parenthesis. Printout 
of these parameters occurs only when their values are changed from normal 



TABLE II 
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OUTFJT LISTS 


EVAPORATIVE LOSS RATE *T S ADY STATE 

' 6NS'HR> 



RESPIRATION! 
SKIN DIFFUSION! 

SWEAT i 

WREEP 

WDIFF 

WSWEAT 

I' IFF 

MAX! 

UMAX 

LIST #1 «< 

TOTAL INSENSIBLE LOSS! 
TOTAL SKIN LOSS! 
TOTAL EVAP. LOSS! 

WINSEN 

WSKIN 

WEVAP 

SKIN EVAP. 

MAXI 

EMAXTL 


WETTED AREA<X> FOR 
SKIN DIFFI 
SWEAT! 
SWEAT ♦ DIFFI 

DIFWET 

SWTVET 

WET 





. DRIP! 

DRIP 





LIST #2 


LIST #3 


LIST #4 


{ 

V 

{ 

{ 


TEMPERATURES 

- DEG F 

BLOOD FLOW 

- L'NIN 

HEAD CORE! 

T( 1) 

SK IN! 

TSBF 

TRUNK CORE! 

T(5) 

MUSCLE! 

TWBF 

tNTRAL BLOOD! 

T(Ul) 

TOTAL I 

CO 

AV6 MUSCLE! T(U3) 

AVG SKIN! T(U2) 

HEAT BALANCE 

0 BASAL l QBASAL GSENS I 

(BTU^NR> 

squg gstor<btu> 

OWORK l WORK 

GEVAPi 

QEVAP 


GSHIVl QSHIV 

STORATl 

STCRAT 


SWEAT! 

CONTROLLER 

SWEAT 

SIGNALS 

WARM( 1 > 1 

WARM(l) 

GSHIVl 

QSHIV 

cold< i > i 

COLD(l) 

DILATi 

DILAT 

WARNS l 

WARMS 

STRICi 

STRIC 

COLDS! 

COLDS 


QSTOR 


LIST #5 


■:kini 


BODY S URFACE TENPERATURES - 
HEAD TRUNK ARHS LEGS 

T(U) V(8) T(l6) T(20) 


LEG F 
HANDS 

T(32) 


FEET 

T(1*0) 


•1 L 0 T H I H6 I 


TUG(l) 


TUG(2) TUG(U) tug(6) tug( 8) TTJG(lO) 


LIST #6 < 


HEAT TRANSFER COEFFICIENTS 


CONDUCTION! 

TOTAL BODY<inVHR> l SQUOW 

FORCED CONVECTION COEF . tHC • HC 

NATURAL CONVECTION COEF.iHCll HC1 

RADIATION! 

TOTAL BODY(BTUsNR> I SQUGA 

RADIATION COEF. .HR! HR 

MAX I NUN EVAPORATION! 

TOTAL BODY < BTU^HR > • QMAXTL 

FORCFD CONVECTION COEF .HE l HE 

NATURAL CONVECTION COEF. .HE U HE1 

C LOTH I N6 COEF . »HECL ! HECL 

COMBINED COEF . .MEVAP I HEVAP 
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TABLE III 

GLOSSARY OF NEW TERMS 


The following is a list of definitions of output terras that have been added 
to the original program. All definitions refer to total body effects rather 
than individual elements or segments. 

CO ■ Cardiac output, liters /min 

- TBF*0. 454/60 . 6 

DDWET - Wetted skin area due to skin diffusion, percent WDIFF/EMAXTL*100 . 
DMAX « Maximum rate of water loss allowed for skin diffusion, gm/hr 

- o.o6*emaxtl 

DRIP = Rate of water secretion due to sweating ♦ diffusion that is greater 
than the maximum evaporation rate, gm/hr 
= (WET/100.0- 1 .0)*EMAXTL 

EMAXTL ■ Maximum evaporation possible from body surface, gm/hr 

- GMAXTL*454. 0/1040.0 

QMAXTL = Maximum evaporation possible from body surface, BTU/hr 
= 10 

= Xemax(i) 

1=1 

SWTWE7T = Wetted skin area due to sweating, percent 
WSWEAT /EMAXTL* 100 . 0 

WDIFF ■ Rate of water loss due to skin diffusion, gm/hr 

= QD*454.0/1040.0 

WET = Wetted skin area due to sweating and skin diffusion, percent 
= (WDIFF + WSWEAT) /EMAXTL* 100.0 

WEVAP = Total evaporative loss due to respiration, diffusion and sweating, 
gm/hr 

= WRESP + WDIFF + WSWEAT 

WINSEN = Total insensible water loss (respiration + diffusion), gm/hr 
= WRESP + WDIFF 

WRESP = Water loss due to respiration, gm/hr 
= QR*454. 0/1040.0 

WSKIN = Evaporative loss rate from skin surface, gm/hr 
= WDIFF + WSWEAT 


WSWEAT 


Evaporative loss rate due to sweating, gm/hr 
QSWEAT*454 .t)/l040 . 0 
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6-g03N32*TpF».TmERMAL 

1 . CJOB M-WQDt TmCRMQREGUlATqR* «TEAoY STATE HOOEL - 

2 COMMON T « M 3 » ,Tu&« 101 ,ACE< I 0 ) , A„t( 10) . PC A 8 , T C A 8 , RM . V PPC A 8 . 

3 •«SMlViD|LAT,STNlC*T0TLtQlC6iCC*»l I . T St T 1 N3 ) , ERROR ( 1 1 I • 

h «QCVAP ••ORK .QBASAL.TBF ,8RST0L»tSbF , T MBf , QD 1 F 1 10) ,WS*E AT i 

& • ORl EO n, vRESP, HUM |N, HUME *P, DEBUG, EPS I in ma Xi 

A •T«.EUG»CLO.CPG»G»SqUG»QSTo" .TuGAV.U. VcAB.STORaT, 

l *EMA*« | 0 » 'QRSCNl ,QRsEN2»8RsEN3,QRSEN4»0*StNil 

8 »85EN( 101 iQRAOt I 0 1 .mEVAP.mC »ME | » NEC L » Hr . MC . MC I , 

9 •«ARMS,C0L0S|S*EAT.(sRi«0 l QMAxTL*MCSAVE.ME5AvEt 

10 •QVAPl|QyAP2iQVAp l A«RH(NniC0LD(Nl)|NC0UNT ( T0TALiTsTrP*rLA6i 

11 •TNtNOI .SQUGA.SQUG*,R1 .R2.Pl .P2 

12 DIMENSION PC A I 1 0 ) 

13 NAME LIST /OPT ION/DEbUG. Epsi.nmaa . 

IN NAMCUST/PARAM/RI »r2.PI ,P2 

|S OATA R1.R2.P1 .P2/0, 0,1, 0,1.0. 1.0 

18 OATA OEBUG.EPS I .NMAX/0.0 .0.2S .&0U 

17 DATA PCA/.0 7 t .3602,,06 7 0S, ( 087Ob.,lBe7..1b87 , ( 02S, ( o2S|2*.03 < t3' 

18 DATA TSET/78 .53 ,95, l 3 ,7 n ,66 ,9., ,2N , 9 8 , No . 7 7 * 30 . 7 N , 1 $ . 9 2 . S 2 . 

_L? • ’S,95,9 3.N2.f2«N*,n.8b, 9S.9S,93.*l2»f2.*U.*l .as, . _ _ 


20 


• 

96,N6,9S,SN 

,’S. S6 , 

93.3», 76,N6,9S.Sn,7S.S6. 

93.38 , 


21 

22 


• 

• 

9 5 , 7 N ,95, u8 
9S.2S.9S, 05 

.’S.SN , 

.75.20, 

7 5 . N U , 95. 7.(, 95 . 68.75. SN, 
75, 07, 95.25,75.05,95.20. 

75, NO. 
75.07 , 


23 


• 

98. N ,0,0,0, 

0 / 





2 N 


DAT! 

C/N. 89,0. 7*7, 0,N8S,0,S29, 26.59.35.57,9,36 

,2.67 , 



ii 


• 

_ 1.56,3,35, 0 ,6 J5-i_Q**i7 n 

»_ 1.56,3.35,0,635,0 

. N 7 N , 



26 


• 

N.67 , |0. 10, 1 .58 , I . |9 , 

n.67 , 10 , ( 0, 1 . 58 , 1 , 

17, 



27 

28 


• 

• 

0, ISN ,0,066 ,0, 
0 . 2 SN , 0 , 066 0 ,o 

07 9,0,187. U.15N, 0,066, 0.09 9, 0,187, 

• IN3,0.2n3, 0.2S*4,0,0660,0.|n3,0.2N3, 


29 


• 

N . 9 6 / 






30 

C 








31 

C 

OEf lNj T 

ION OF BODY SEGMENT TEMPERATURE SUBSCRIPTS 




32 

C 

Til) 

head core 

T 1 2 ) 

■ head muscle 

T 1 3 ) 

■ head 

F AT 

33 

c 

TIN) 

HEAD SKIN 

T 1 5 ) 

■ TRUNK CORE 

T 1 6 ) 

• trunk 

MUSC 

3 N 

c 

Tl 7) 

TRUNK FAT 

T 1 8 ) 

■ trunk skin 

T 1 7 ) 

• right 

ARM 

3 S 

c 

T 1 10) 

RIGHT ARM MUSCLE 

TUI) 

■ right arm FAT 

T ( 12) 

■ RIGHT 

arm 

36 

c 

T( 13) 

left arm core 

TUN) 

■ LEFT Arm MUSCLE 

T (15) 

■ LEFT 

A* M F 

37 

c_ 

T 1 16) 

_LEFT ARM SjyN 

.jim 

• RIGHT LEG CORE _ 

.11 181 

.i RIGHT 

LEG 

38 

c 

Tl 19) 

Right leg fat 

TI 20 ) 

■ RIGHT LEG SKIN 

T 1 2 1 ) 

• left 

l EG C 

39 

NO 

c 

c 

T (2 2) 
T 1 2 S ) 

LEFT LEG MUSCLE 

right HAND COrE 

T 1 2 3 ) 
T 1 26 ) 

■ LEFT LEG FAT T(2N) 

• RIGHT hand MUScLET ( 27 ) 

■ LEFT 

■ RIGHT 

ifG 8 
HANC 

N I 

c 

T 1 28 ) 

RIGHT HAND SK|N 

Tl 27) 

■ LEFT hand core 

T ( 30» 

■ left 

h and 

N2 

c 

T 1 31 > 

left hand fat 

Tl 32) 

■ left hand skin 

T ( 3 3 ) 

• R|GHT 

foot 

N3 

c 

T 1 3N ) 

RIGHT FOOT MU 5 CLE T 1 3Sj 

. right foot fat 

nm 

■ right 

F001 

NN 

c 

TT3>) 

LEFT foot CORE 

T 1 38 ) 

> LEFT foot muscle 

T ( 39 ) 

• left 

foot 

NS 

c 

T1N0) 

left foot SKIn 

T1N1 ) 

a CENTRAL blooo 

T ( N 2 ) 

• AyERAoE sk 

N 6 

c 

T 1 N 3 ) 

AVERAGE MUSCLf 






N7 

c 








N 8 

c 








N9 


DATA RM,QBASAL’UEFr,Pos,TcAB,T*.TDFftC,VCAB. 




“50" 


•pcab.g.clov.eug.cpg/ 






51 

52 


• 283. 

• IN. 7 

00,283,00,22.0,2, 
,1 .00,0.30,0,95,0 

0.75,0, 
• 220/ 

75.0,52.0,30,0, 




S3 


DATA K Y ,KX/ 1 HN • 1 HY/ 






5S 


DATA K|.K2.K3,KN,KS,K6/|HN,IHn,1HN,1Hn.IHN. IHn/ 





H JIRIT^ 16.N0) 

56 NO FORMAT 177/7* Nl-NObC T HE R MoR E »*Ul A T qR T STEADY STAtE MODEL*/ 



1 ? 


57 • • REFER TO GE-AfiS U»ER GUlo* Tl" 7 r | -nED-90 1 5 •// ) 

SB 

59 C 

*0 C BE *0 INPUT ORTA 

6| C 


Ci 

63 

_6*L 

6S 

6* 

67 

68 
69 

10- 

71 

7 2 
73 
7 9 

7 5 

76 

77 

78 

79 

80 

8 1 

83 

89 

85 

tt 7 
88 

89 

90 
9 1 
9 2 
93 
99 - 

95 

96 

97 

98 

99 

LOO 
101 
102 
103 
1 08 

105 

106 

107 

108 
109 


MB I TE I 6 , 85 ) 

95 fOBMAU/y «0T0 0«TA|l* OUTPUT t|*TS I - 6 «N I TC *f* », 

• * under apbropUte number, Then cr'/' 1 2 3 8 5 6 *1 
60 TO 99 

98 •R|TE(6,92) 

99 REA0(5»50,ERR>98) K I , K 2 , K 3 ,K 9 , K 5 , K 6 
50 F0BHAT16A2) 

881 T E ( 6 • 56 1 

56 FORMAT (//, *000 yOU rISM A USTlNta OF |NPuT PARAMETERS? 

• ( y/N ) CB * 1 
NEA0(5,57) KK 


57 FORMAT!^) 

IF UK .Eg, Ky) GO TO 85 

rKI TE ( 6 , 70) HM.UpASAL.UfFF « pOS • T C A B , T « , TOE»C ♦ V C A8 , 

•pcab .g.clov ,eug,cpg 

70 FORMAT (//,' 0 I NPuT pAramE T f R S s £ T To FoLLORINg VAluEs!''. 
• / / ' 0 I NOE < ' » 9 X » 'NaME* • 5 X • *vALUF*/ 


• 

• 1 • , 7X , *RM 

, F | 0 , 3 / * 

• t 

3 * , 7 x . • UEF F 

•' , F 1 0 • 3 / * 


/J 5' , 7X , * TC AB 

•* »f 10.3/ 

• • 

6* ,7x , * TR 

■* ,F |0,3/* 

• • 

8* , 7 A , * V C A 8 

•’ ,F 10.3/ 

• • 

9* ,7X , *PC AB 

■ * ,F 1 0. 3/ » 

• • 

1 1 * ,6* , *CL0V 

■* , F 10.3/' 

• • 

1 3* ,6X , • CPG 

•• , F 1 0 , 3 / 1 


2* , 7X , *ObASAL>* .F 10,3/ 
9#»7A,iPOs ■ ' , F 1 0 . 3 , 5 y , 

7 • i 7 A , • T DfRC •' » F | 0 « 3 / 

l 0 * t 6 X * ' 6 •* t F 1 0 • 3/ 

l2»i6X,*rUG ■ ' , F 10*3/ 


85 *R|TE<6,90) 

90 FORHATMOTO CHANGE INPUT*ENTEr INDEX N 0 • ( 1 • 1 S ) • VALUE '* 

• * ( 12.E15.5) */ i 

****** RHE N LIST |S COMPLETED TyPE " - 1 " , THEN CR*****) 

GO TO 93 
89 CONTINUE 

• R1TE(6,95) 1 • y ALnER 

95 FORMAT ( 9X , 3H*** , I9,F|0,9) 

GO TO 9 J 

91 RR|TE(6,92) 

92 FORMAT «* •••RE AO E R ROR • • • PL E A Sr TRY AGaIN****) 

93 RE AO « 5 ,99 ,ERR"9 1 ) I, VAINER 
99 FORMAT! 1 2 , E 1 5 , S ) 

IF! 1 • L T • 0) GO TO 96 
1 F I I • L T » 1 , OR » I • GT • *0 | Go TO 91 

GC 70 « I .2.3,8,5,6,7,8,9,10,1 1 ,U, 13, ,9,15,16,17,18^9,20) 

1 RM ■ VALNE* 

GO TO 89 

2 gB A S A L ■ valnfr 
GO TO B 9 

3 UEFF ■ VALNER 
GO TO 89 


110 9 POS • VALNER 

111 1 F I POs ,GT. 3.0 , Or , POS . L T , I.U) GO TO 9| 

-.lLl- GO TO B 9 

113 5 TC AB * VALNER 


13 


60 TO 09 

la > valne* 

60 TO 09 

rocac • VALNEA 

60 TO 09 

VC A 8 • VAlNCM 

IflVCAB .CO* 0.0) GO TO 

60 TO ay 

VC AB ■ 1.0 

0R1 TE( A.32) 

FORMAT ( »0******VC*R NOT 


lC*H NOT PERMITTED TO 


ZERO* 


60 TO 89 
PCAB ■ VAtNCA 
60 TO 89 
6 ■ VALNEA 
60 TO 89 
CLOV ■ valnea 

60 TO 89 
EU6 ■ VALNEA 
60 TO 69 
CPG ■ VALNEA 
60 TO 69 
EPS! ■ valnea 

6n TO 89 
• V X ■ VAtNEA 

» ll_ _ 

DEBUG * VALNE* 

60 TO 69 

81 ■ VALNEA 
60 TO 69 

82 ■ VACNEA 

60 TO 69 

PI • VACNE* 

GO TO 69 
P 2 • VALNEA 
60 TO 69 

08 I TE ( A • / O ) 8M»«BASAL.Urf) r ipOSiTcAB.T0,TDE0C*VCAB. 

»PCAB,6.CL0V,Eu6,CPg 

ir(0EBU6.NE.0*0.08,EPSl *Nf .0*26.08 , NHaX.NE.SOO) 

► ARITE(6#0PTI0N) 

IF«8l.NE.0,0 .OR. r2,NE.I.O , 0 8. Pl.Nf.1.0 »0R. P2.NE.1.0) 
• AR ! TE ( 6 » P ARAM ) 

CONTINUE 


l ZAT ION 


DO 100 1>1»H3 

iiiim mi i 

DO l 1 0 I - 1 .10 
TUG ( I ) ■ T ( J ) 

I F ( ° 0 S *EQ. 1.0) 6o TO J20 
60 TO 126 

_AC_ ■ 1 9.6 

AM ■ | 6 • 6 


lU 


I 79 


166 

187 

|88 
I 89 

i«0 
l *1 
>92 
193 
1 9*4 
1 95 

1*4 

197 

| 96 

1 99 

200 

201 

202 

203 
209 
205 

204 
207 
2UB. 
209 

2 1 0 

21 I 

212 

213 

219 
2 1b 
216 

217 

218 
2 1 9 

220 

22 1 
222 
723 
229 
22 5 

226 


227 


60 TO 1*? 

12b 1F4P06 .L«, 2.01 6o TO 1*0 
60 TO | 3b 
130 AC " I b • b 
A 8 • 1 1 .5 

60 TO 160 

1 3b IMPOS » E Q , 3.0) 6o TO |9o 

- Op I T 2 < 6 i 80 1 

80 FORMAT 4 ‘OpOsl T I on pARAmETCR E*TerE 0 lNCORREcT L r - A B ORT hu n '» 

CALL EXIT 
|90 AC a 12.5 

AR ■ 9,5 

1 50 CONTINUE 

00 »40 1-1,10 

J-9* | 

ACE I 1 1 «PC A 4 I ) • A C 
ARE I I 1 -PCA ( I > • A R 

160 continue 

U*UEFF / 1 00* • 4 RM-qBaSAl 1 

«0** a **-O«ASAL-0 

VPPCAB-VPP ( TOE AC ) 

CLO • 0.88 • CLOV 



c 

C MAIN LOOP FOR ShIRTSLEEvE CASE 

CALL SHIRT 
C 



C 

c compu t e Evaporative losses in gm/hr a m o prepare 

-C FOR OUTPUT 

c 

ARES! • QR*959./ 10*40. 

AOIFF • Q0*9S9./ 10*40. 

ASAEAT ■ QSAEAT*9b*,./ 1090, 

_ RINSEn ■ ARESP *_ ADlf-f — - - — 

ASF I N ■ 60IFF ♦ ASAEAT 

AE V A P > ARESP ♦ rDjFF ♦ ASAEAt 

EmAXTl . QMAXTL*9bM,/i090. 

OMAX ■ 0.06»EMAXTL 
DIFAET a RDIFF/EMA X TL*lOO. 

JLKJAE A T/ERAXTLMQQ. 

AET ■ MAOIFF ♦ ASrEAT > /EMAXTi )*100. 

DRIP ■ (AET/100. - 1.0)«EMAXTl 
1 F • OR I P ,LT. 0.0) f)R I p - 0.0 
IF«SAEAT t NE . 0.0) PHI • SATReT/SAEAT 
IF<SAEAT .EQ. 0.00) PHI ■ 1.0e*05 

C1L-* _IBF • □ , 9 5 *4/ 60 • 

TSBF • TSBF*0. 959/60, 

TMBF ■ TMBF*0. 959/40, 

!F<K1 ,nE. KX) GO TO 325 
ARITEI6.3101 

310 F0RMAT4///, 17xt ‘EVAPORATIVE LOSS RATE AT STEADY STAtE*,/ 

• 3QX * * ( GMS/H8) »_i 

RR I TE ( 6 . 320 ) RRESP,ROIFF*OMAX, ASAEAT, *INSEN, AS* 1 N . 
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2 2 a *£hAXTl I«C V AP lO I r«C T • S«Tte T»«Er*OM IP I 

229 J20 FQRHAT ( / A 2A. »R£Sf lltATLONi ' 

230 •'SKIN DIFFUSION: », no. 2, iOXt'olEF M*X • * , F 8 . 2 / 

23| *I 8 x, ’SWEAT! * »F I0.2//2X ,' TOTAL InSENSIbLE LOSS I ’ , F 1 0 . 2 / 

232 * 8 X, ’TOTAL SKIN LOSS S • , F I U • 2 , 9 x • » SK I N fVAp. MAXI’, 

233 *F».2/7x ,• TOTAL EVAp, LOSS t ' , F 1 0 , 2//SX . • BE TTE? AREA(S) FOR*,/ 

239 • l 9 X » * SK l N D I FF S t ,F (0.2/ I 8 x , *S*E*T : . ,F | 0.2/ I l X , *s»eat •’, 

2 3S •• OIFFI * ,FlO,2//|9 X ,’DRlP: * .F 1 0 , 2 , S X i • At TNESS/OHI v£ I • ,F», 9 ) 

234 32 s continue 

237 1FU2 .ME* KX) GO TO 33S 

23« rRITE(4,330) T I | ) , TSBF • T I S > , TmBF » T ( 1 1 ) *C0 , T I *3) * T 1*^ 

239 33o format!//, 7 X , ’temperatures - oE& f’.bxi'blood flow • l/min», 

290 •/Sx.'HEAO CORE I • ,S x *F7,2» IOxi *SK In: * ,SX,F4.2,/9 x ,«TruNK CORE?#, 

241 •Sl»F7 « 2 , 8 X » • MUSC L£ : * , 5X.F6.2/' CENTRAL BLOOD. * ,&X.F 7 .2 «9X t 

292 **TOTAl: » ,SX,F6.2/9 X ,*AVG MUSClE: * ,SX,f7.2/4X,*AvG S K in: • ,SX,F7,2) 

293 33S CONTINUE 

2 94 I F I K 3 , NE « KX) GO TO 39S 

2 9 5 «R I TE ( 4 , 390 ) QB A S A(_ • S QU G , fi 5 T OR * MURK , l V AP , QSH I V , STOr A T 

2 94 390 F0RMAT!//22X,*M E AT BAI AnCE < B T U/ HR ) * / 5 X , • QB AS xL { * , F 8 . 2 , 

2L*7 •AIL». , «SENS: *_jF8i2iSx»-»QSTQIUfiTu) : * iFB» 2 / 4 X»* fli 0 Rx : i » 

298 •FB. 2 . 6 X,' 8 EVAP:*,FB. 2 / 4 x,*QSHlV:* # F 8 t 2 ,Sx, , ST 0 RAT: , ,F 8 . 2 ) 

29V 395 CONTINUE 

2 S 0 IF<K9 ,NE. KX) GO TO 3*5 

2 SI *RJTE(4,3S0) SREAT,*aRM( I ) ,qs h J VfCOLOl l ) .DILATi 

2 S 2 • RARMSiSTRIC, COLDS 

253 3S0 F0RMAT(//23xi'C0NTr 0LLER SIGNALS '/l OX. 'SMLAT I * iF?«2« 12 &. 

2S9 • , RARH(|):*,F9.2/10x,'QShIV: , ,f9.2,|2X,*COLO(1):» i 

2 55 •F9.2/10X, , 0ILAT:*,f9.2,14X,*AaRmS:*,F9.2/I0X, 

256 • , STRIc:*#F9,2,14Xi*C0LDS:**F9.2) 

2 5 7 3 S5 CONTINUE 

2 S 8 I F ( K S ,NE. KX) GO TO 34S 

259 WRITE! 4 ,340 ) T(9 ) , T ! 1 ) iTI 12) ,T< 29 ) , T <32) ,T 1 9 0) , 

24Q •TUG(1>iTUG(2>,TuG<<4>,TUg(A>,TuG(B>,TUG<IO> 

241 340 FORMAT !// l 7x •' BOOT SURFACE TEfiPE« ATUR eS - DEG F*,/ 

242 *I2X, » HE AO*, SX, ’TRUNK *,SX, 'ARMS’, 9X, 'LEGS', SX, 

243 ••hAnDS',‘*X,»FEET’/SX,'SkIN:* i f7.2,SF9.2// 

249 •• CLOTHING) * ,F7. 2, SF9. 2) 

245 34 5 CONTINUE 

246 IFIK4 , NE • KX) GO TO 375 

247 WRITE!4,370) S QUG A , HC S A VE . HC I . S flL'G ft , HR , QM A X TL , HE5A Vr i ME i , 

248 *HECL,HEyAP 


> 1.9 

*'0 


2 71 
272 


2 73 
2 79 


275 
274 
277 
2 TB 


279 

280 
281 
282 
283 
289 
205 


370 F0RmAT(//20x*’HEAT ,'ransFER C qE F F I C I E N T S • / 1 0 X , ’ C ONDuC T l 0 N ; • / 


• I3X, ’TOTAL bOOY ( bT(j/hR ) 5 • , I 1 X ,F7.2/ I 3x , ’FORCED * 


• , 


• • c o NVEC T I ON CQEf , ,HC1 » *3X.F7,2/13X . • N A T_U R A L_ CflNJLLCJ lflUJL 
•* C0EF,,HC1 :’,Ix,F7»2//10x»’RaDIATI0Nj*/13x, 

•’TOTAL BODY ( BTU/hR) I * , I I X ,F7,2/ 1 3X , *RaDI AT ION COEF*.’ 

•’ HR :*,11X,F7.2//|0X, ’MAXIMUM eVaP0RATI0NJ*/13X, 

••total body ( btu/hR j j *, i i x ,F7 ,2/ i 3x , ’Forced convection », 

•* COEF ,HE : ♦ , 3X »F7 *2/ I 3x , ’NATURAL CONVECTION C0EF.,HEl:», 

• I Xj F7 » 2/ 1 3 X , • CLOTH i N Q CQEF, ,HEClI * ’ I Ox., F 7 . 2/ 

• I 3* Y’COMB I NED COEF, ,HEVa>: * ,9X,F7.2) 


375 CONTINUE 

WR!TE(6,300) 

300 FORMAT (////• ODO YOu WISH TO StArT NEW RUNT ( T / N ) cRt) 
READ(a,57) KKK 
IF(KKK .NE* KY) GO TO 85 
CALL EX I T 


END 



y i/i -o r» <b o- 
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.03O2»TPf*,Sm!»TS 

1 SUBRCu T lhL SHIRT 

2 COMMON T ( 93 ) , TUG ( I C ) • ACE I t 0 > » ARE < 1 0 ) ,PC AB , TC AB ,RM , VPPC AB , 

3 •QSHlV,DlLAT,STR|t,T0TL,QLtG,C( 4 M), T StT(93),iRRUR(9l), 

9 •QEVAP l APRK.ua*SAL,TBF.gRsTOL»TSBf.TMbPtQOIF«iO),OS»»EAT* 

5 •QRLE0NiVRESP#MUMjNtHOPEFP»0t;BUG,kPS|»NMAX l 

6 •TA,EUGiCL0»CPG.GtSQUGtg5T0R,TUGAV l 0iWCAH.ST0RAT, 

7 ♦EMAAU0LJjfi R i*.fii_jJLRStN2*flRSEN3 l yg5EMStQRSEN*, 

0 • USCN ( 1 U ) * gR A U ( 10) ,HEVAP,ME,HEl iHECLtMRtHClHCl • 

9 •«ARf«S,COLOS,bBEAT,QR,yi) l QMAxTL»MCSAvE,MESAvE' 

10 • UVAPl,QVAP2,yv*P»*ARn(9| »,C0LD<91 ),NC01 J NT, TOTAL, TSTEPiPLAg, 

11 •TNI i «0| l SQUGAiS0UGW(R>»R2tPi|P2 

12 D I PENSION M ( I 0 ) 

13 DATA h'*033 , . 026, 2*. 0 »A, 2*. 033,2*. ON, 2*. 036/ 

FLAG - (l.n 
NCOUNT "0 

1 ncount-ncount ♦ 1 
T RR»T«»*«60 • 

SQUGAaO.O 

SQUG AmU. . 


?b 

00601-1,10 - . 

? 6 
? 7 
? 8 
? 9 
30 
3 1 

J • 9 • 1 

TL'GR»TUG11)*960. 

H C • H ( | ) • A CE ( I )*S0RT(PCAB*VCaB)-P1 
HCSAVE » HC 

HC1«(0.06*ACE( I ) • ( PCAb*»2*G*ABS( TUG( 1 ) -TC AB ) > •• • 25 ) «P 1 
1 F ( Hfl .GT. HC) HC-HCl _ 

32 

33 
3 9 

35 

36 

37 

HR«0.1713E-8«ARE( I )*LUG*(TUGR**3*TUGK»TUGR*TwRMU6R*TflR*T,,R* 
•TNR**3 ) *P2 

IF (CLO * L T . 0.01 | GO To 20 
I F ( I ,lT. ? .0P» I * G T • 6) GO To 20 

TUG(I)*iHR*TH*HC*TCAb*AcE(I>/CLO*T(j>>/(Hf<*HC*ACE(I)/CLO) 

GO TO 90 _ _ 

3 8 
39 
90 
9 1 

92 

93 

20 TU G ( 1 ) ■ T ( J ) 

90 QUGA»HR* ( TUG t I ) -T* i 
QUGA-HC* ( TUG l I > -TC AB ) 
SGUGA»S0UG6 *UUG6 
SOUGA-SOUG A* WUG A 
USEN( I ) -WOGA 

99 
9 S 

96 C** 

UR AO ( 1 ) «UUG6 
60 CONTINUE 



CALCULATION OF RESPIRATORY SENSIBLE 


<JR5EN1«0.5*0.0918*PCAB»199.0/<98.3*(TCAB*9S9.69)I*rm*CPG*(<0.385* 

T ( I >*0,Ofi6*Tl2) 4 '0»02b7*T(3)*0»23B*T(S)^0«26lS*Tl6) l-TCAB> 

• (1.0 - 0 * 3 3 * ( 19.7 - PC A B ) ) 

QRSEN2 ■ 0.172 • QRStNl 

B RSEN 3 ■ 0.QS7H • Q R 5 E N 1 

UPSFN6 ■ 0.523 • QRSEM 
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5 7 GRSEN5 » 0.974 • QRStM 

58 

59 C 

40 C 

6| SQUG ■ SwUGA ♦ SWUGA ♦ (jRStM ♦ WRSEN5 ♦ gRSENi ♦ WKS£N3 * 

62 .&RSEN4 

63 * 

65 c calculate maximum Evaporation rate 

66 C 

67 

68 00 80 l>l • 10 

69 J«9»l 

70 _ VLPTUGiVPPlUiGU) L 

71 HE»0.126*ACEU>*(TCAb*96U»)«*1.09«VEFF/100.»SOKT(VCAB/PCAb) 

72 HESAVE ■ HE 

73 MEl"1.32»ACE«!)*ITCAe*‘*60»>/PCAB»IPCAB*G*«AB5(*00&*PCAb*ITU< J UI- 

79 • TCAB ) ) ♦ 1 .02* ( VPTUO-VPPCAB J ) 1 •• .25 

7b IFIHEI »GT » HE) HE "HE I 

76 1 FX-l— «L-T * 2 .OR. 1 -«<.T » 6) GO TO 70 

77 IFICLO • L T • .01) GO TO 70 

78 HECL»22.36»AC£II)*ITlJ)»S60.)**0.81/(CL0»PCAB> 

79 HE V A P ■ <hE*HECL)/<Ht*HECt) 

R 0 EMAX(I)»HEVAP*(VPP(T(J))-VPPCAb) 

81 GO TO 75 

.J 2 7U LttAJLtJ-J-ial* IVPP1IXJ.J 1-VPDOU. __ - _ - 

83 7b IP ( E H A X ( I > . L T * 0*0) E. M A X < 1 ) ■ 0 . 0 

89 80 CONTINUE 

85 GMAXTL ■ 0.0 

86 00901-1.10 

87 GMAXTL ■ WMAXTL ♦ EMAX(I) 

BH — 90 CO NT INU E 

89 

9 0 C 

91 CALL MAN 

92 C 

93 

- 9J. aSTO«»Q« 

9b DO I 00 I > I • 9 1 

96 QST0R»U5T0R-»C(1)*(T<I)-TSET(1)) 

97 100 CONTINUE 

9b c • • • • • 

99 C 

l 00 £_ CRIT ERIA FOR CONVERGENCE 

1 0 I C 

102 

103 STORAT ■ OBASAL ♦ WORN ♦ QShlV - QEVAP - SfiUO 

109 IF (DEBUG *EG* 0.0) GO To 1 2 G 

105 RR1TEI6.1 10) NCOUNT, STORAT, Til) 

10 6.. 110 f QRMA I LL*1 l 5JL» 1JLL5JJ t_ V_j S iii 1 5 Xx * I ‘ 1 » ■ ' if • • *L ) 

107 120 CONTINUE 

108 C- ---------------------------- 

109 C 

110 CALL CQNVRGIT ,TN. STORAT, NCOuNT.FLAG.EPS! .NMAX) 

in c 

113 IFIFLAG .EO. 0.0) GO TO 1 

1 19 IFIFLAG .EO. 1 .0) GO TO I 

1 15 IFIFLAG .Eflj 2.0] -Afl. T.ft 1.1 

116 11 RETURN 

1 1 7 END 
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>B*-G 03 *« 32 *TPFf .MANS 


2 

3 

9 

& 

6 

2 

8 

9 

10 

1 1 
12 

1~3 

1 9 


SubKuUT | N€ HAW - - — ■ . ■ • — 

COMMON T(93),TuG<|0),ACE(IO),ARE<|0> ,»»CAbiTCAB,RM.uPPCAb. 

• QSMI V, OIL AT ,STR|C»TOTt»«CC«»Cl'»| ) . TSETI93) .ERROR (Hi ) » 
•QEVAP,WORKiQBASALiTBFiQRSTOLiTSBF»TMBriQDlF(IO>»US«EATi 

• QRLCON.VRESP * MUM |N, MUMtXP.0EBU6.EPS I *nHAX • 

• TA»EU(,.CLOiCPG*GiSqUG,QSToRiTuGAV,UiVcAB.STORaT, 

• EmAjl I 10) .«R5FNl ,gH S CN 2 « tfR N3 , OR SC NS .qRsCNA, 

*8 SEN! I 0 ) • q R A D ( >0) t HE y AP , ME » ME 1 • H t C L • *R • HC # HC 1 , 

• *ARMS»COCDS.SRF.AT»oR*aO»«MAxTt»hCSAVE,MCSAyC* 
*8VAPl,QVAp2,QVAp,R*RM!9|),C0L0l9l) , Nc OUN T . TO T Al , T S T r P . Fl A G * 

• T N ( 9 0 ) , SUUGA tSSUt* ,H I ,R2.P1 ,P2 

DIMENSION BF ! 9 0 ) «QmET( 90) , Q L A T ( 10 1 , g S n T ( 10) .RTAREa! 1 0 ) 

01MENS10N F ACTOR (901 - 

DIMENSION BF B • R 0 ) , QB ( 90 ) i »OHKm • I U ) • C H | L M ( 10) , S^ 1 N y ( 10) • SK I NC ( I 0 3 • 


IS 
1 A 

|7 

18 


—i9_ 


— 4 * 

20 


21 


22 


23 


29 


25 


26 


27 


2 8 


29 



30 

31 

32 


33 

39 

35 

36 

37 

38 


39 


90 


91 

C*' 

92 

u •» 

C 


1 J 

99 

L 

C 

95 

c* 

96 

C 

97 

c 

98 

c 


JUL 

SO 



51 



52 



53 



59 



55 


56 


• SK |NS( 10) ,QBI000(M0I tSKlNHI |0) 

DATA CSr iSS*,pS#,CDlL»SD I UPD lL.CCON.se ON, pCON»CCMIu*SCHIl*PCm1L 

• /7 OS. 0. A3. 9 ,0,0, | 9 3, , 9. 20 ,0.0, l .78, 2.78 ,0.0,0.0,0,0,2b, 7/ 

DATA BF8799,3,0,26s, 0.2B7,3»1B, ^A3,0 ( l3,2,5,t5,H,Aj, 

0.925 , l ,26 ,0.22 l ,0.550 ,U.92S , 1 .26 ,0.22 l ,0.fc50. 

• 2, *7, 3, 79, 0,575,3, IS, 2 . 9 7 , 3 , 79 , 0 , 5 7 5 . 3 . | 5 , 

• 0.111.0.265,0,0992,2.21, 0 • 1 1 I • «2AS, .0992,2.21, 

• 0.177, ,022), .055, 3,31, .)77, ,0221, ,055, 3.31/ 

DATA UB 1 000/ 1 72.0 , 1 .39 , 1 .9B , ) .06 , A l 0 , • A 7 • 2 , 28 . A , 5 • 3 7 , 

• 9. 7o, A. 90, 1.19, 0.875. 9, 70, A. 90,1.19, ,875, 

• IS. 0.19.2,2.89,2.15, I 5 . 0 , 1 9 .2 , 2 .89 ,2 . I 5 * 

• 0.59, 1,39, 0.202, 0,336,, 59,1. 39, .202, ,336, 

• , 8 7 5 , » | 3 5 , . 2 6 8 , , 9 7 0 , . 8 7 5 , . 1 35 , , 2 A 8 , « 9 7q2 

DATA work M^ 0.0 ,0.3 ,Q ( 09 ,0.09 ,o,3 ,0,3 ,0,005 ,0,005 ,0,005 ,0,005/ 

DATA CH1LM/0. 02, 0*85, 0,025, 0.025, 0.035, 0,035, 9*0,0/ 

DATA SK1NR/0, 0695, 0.9935, 2*0, o39J, 2*0, 07525, 2*0. 09225, 2*0, OIA 7 / 

- DATA SKINV/O. 132, 0,322,0, 0975, O.U975,o,ll5, 0,1 li, 0.061,0. 0A1, — 

• 0.05,0*05/ 

DATA SKINC^O.05,0.15, 0, 025,0. 0 25, 0,025, 0,025,0, 175, n.l 7 5,O.I7s, 

. 0.175/ 

DATA SKINS^O. 08 1 ,0, 982. 2*0. 077 ,2*0. 10 95, 2*0,01 55, 2*0. 0* 75/ 

DATA FACTOR/3. 09, 25. 19, 30. 93, a. 0.3, 02, 10. 98, 93. 67, 0,0, 

• . 1j32j 9, 82,28.89,0.0, l ,32,9.02.28.89,0.0, 

• 9.93,13,68,70.57,0.0,9,93,13.68,70,57,0,0, 

• 6.07,10.69,10,92,0,0,6.07,10.69,10,92,0.0, 

• 15. 99, 19, 52, IS. 55,0.0, IS. r9, 19, 52, IS, 55, 0.0/ 


SREAl 1_SH l Vtlti CQTiSLfi I CT I ON lD-I_LAT_1oN CA L CUc AT 1 ONS 


establish thermoreceptor output 


aa. BQ 1*1.90 


ERROR ( I ) ■ T I I » - TSETl I 1 
W ARM < I > ■ 0.0 
COLD I 1 ) ■ 0.0 
I F ( ERROR 111) 20,90,60 

20 COLD! I ) ■ ERROR! I > 

9 0 _G0 TO 8 0 


60 WARM! I ) ■ ERROR! 1 > 
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57 

SB 

c 

80 

continue 

59 

c 


INTEGRATE pEIphErAl AFFfRENtS 

60 

c 



6 I 



•ARMS ■ 0*0 

62 



COLDS ■ o.o 

63 



DO 90 1-1,10 

6H 



X ■ 9*| 

45 



• A*MS ■ WARMS ♦ WArMU ) • Sr INR ( I ) 

66 



COLDS . COLOS ♦ COlD ( K 1 «SK I NR ( I ) 

67 


90 

CONT 1 NUE 

68 

c 



69 

.jjl 

7 1 

c 


DETEmINE efferent outflow 

■ ■ I t ■ 


SrEAT-IcS«*ERROR( 1 )*SSW*(nARhs*COLDSUPSW*nARh< t )• WARMS )*R2 

72 



DILAT»CDlL*ERROR(l 1 ♦SDIL* ( WARhS-COlDS ) ♦pdil*waRm< 1 )• WARMS 

73 



STRlC--CCON*ERROR< | )-SCON*( wArMS-COLDS)*PCON*cOlD( 1 ) -COLDS 

79 



OSMIv--CCH1l-ERROR(|)-SchIL*<rArms-CO l DS)*PCM|L-COLO<»»*COLOS 

75 

c 



76 

c 


ENSURE EFFERENT COMMANDS Ar f POSITIVE 

77 

c 



7 B 



IF<SWEAT1 91,92,92 

79 


91 

SWEAT- U.O 

80 


92 

I F < D I L A T 1 93,99,99 

8 1 


93 

DILAT > 0.0 

82 . 


99 

I F < STR I c » 95,96,96 

83 


95 

STRIC ■ 0.0 

89 


96 

l F • OSH 1 V • 97,98,98 

as 


97 

USHIV > 0.0 

66 
6 7 

r • t 

98 

CONT INUE 

88 

C 



89 

c 

calculation of respiratory Evaporative loss 

90 

c 



91 

c*« 




92 

93 

_?J 

95 

96 

97 

98 

99 

1 00 

101 
102 
103 
109 

105 C 

106 _C 

107 C CALCULATION OF SftCAT F VAPOR AT I VE LOSS 

i oe c 

10 * 

1 1 C QSWEAT ■ 0,0 

1 1 i BULL ■ 18.0 

1 12 00 100 1-1 • 10 

TT3 J-^-i 


V P I N ■ VPPCAB 

HUM I N • 0.622*VPIN/(PCAB-VPIN) 

top ■-&*»» ♦ 0*086* TCAfl ♦ 57.H-HUMIN ... 

VPEXP ■ VPP(TEXP) 

HUMEXP > 0, 622*0. 8*VPEXP/(PCAb-0#8*VPeXP> 

VRESP - <0,09 15-PCaB- 1 9R.-30. )/( 1 S H M • • C TCAB*960.I I 
• *<1.0 - 0*000-( 19,7 - PCA0))*rM 

QR ■ VRE5P*«HUMEXP-HUMIN1*109c. 

9 LAT 1 ■ 0,3B60 *QR 
QLAT2 ■ 0*0B60*QR 
9L A T 3 - 0*028 7 -QR 
QLAT5 - 0,2300*QR 
9LAT6 * C.2630*QR 


20 


QS« T ( | } • SKInSI I U<S»CAT*£*P(£nH0m J|/BULL> 
J F < QS A T < t > *tT* 0*0) «S*T ( I 1 • 0*0 
WS»EAT ■ qSREAT ♦ qS«T <11 
• T AREA ( | | ■ QS«T I l ) /EHAX ( | I 

I F ( A T ARE A ( | ) .ft?, (.00) RTAREaII) ■ 1,000 
100 CONTINUE 


• HI )•! .0 


CALCULATION of SkIn DIFFUSION EyApoRATlyE LOSS 


QD ■ 0,0 
DO 120 !■! i 10 

GOlF(l) ■ 2 »B*AC£ 1 | ) • ( VPP < TU4< l » 1 -yPPc AB> 

• • ( ( VC AB/Pc AB 1 **0 . 1 S ) • ( l .0 - ftTAREA<I)> 

IFIQOIFU) • 4 T , 0*0A«EMAX ( I » 1 QDlFlJ) ■ 0«0 *«EMax(II 
QD ■ QD ♦ QDIF ( | 1 


c . I • 2 . • 2 ^ I ••••< 


CALCULATION of TOTAL evaporative losses 


DO 130 1*1,10 

QLATI 1 1 ■ QDIF ( I ) ♦ QSWTl I 1 

1-FlQlA T -U J « 4T • EM a X 1 111 41AT4 J 1 

130 CONTINUE 

QEVAP • QR ♦ QD ♦ qSNEAT 


• emaxi h 


C BLOOD FLON CALCULATIONS 


DO 1*0 1*1 » HO 

1*0 QB ( I I * <38 1 000 I I )/|000,0 
DO 200 1*1,10 
N* R • I » 3 

. ... BFlN)*BFBlNl _ _ _ 

QMET ( N ) ■ QB ( N ) • <3 B A S a L 

QHET(NM>*QB(NM)*gBASAL*»ORKM(l>*«ORit*CHlLM(l)*QSHIV 

BF(NM)*BFB(NM)*(QMET(NM>-QB<NM)*QBASAL)/1,3 

QMET(N«2>*QB(N*2)*QBASAl 

BF ( N*2 1 *BFB I N*2 1 

1J!LETI**J»*9BIN.*J.)*qBASAL 

BF<NA3)*<(BFB<NOUskINVIi)*DiLAT)/(1.0asKINC(I)*STrIcI) 
*_ •EXP(ERR0R(N«3)/1S*0)*1«0 

200 CONTINUE 

TSBF*BFIR»*BFI8»*BfI I 2 » ♦BF < I A 1 *BF « 2 0 > ♦ BF ( 2* > *BF I 26 > ♦ BF I 32 1 
• ♦BFlHO) 

_ ITLBF"BF I 2 I ♦»£_! I *JL»Bf * ml * BE LlMUB F U* > *BF I 22 I ♦BF ( 26 ) ♦BF I 30 1 
•♦BF ( 3R 1 ♦BF ( 381 


C CHECK FOR NEGATIVE BLOOD FLO* 

c — — 

DO 220 1*1 ,R0 

22H_1E I BELI 11 »LTj tUiLLaF (i UUUfl_ 
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I 7 1 C 

172 IflFLAG *£©• WO) ©0 TO 350 — 

173 C 

17 9 C CALCULATE NE n TEMPERATURES PROM s t EADy STATE HEAT BALANCE 

l 7 S C 

1 7 A C* •••••••••••••••••••* 

177 C- 

I 78 CHtUtATE TE M P Of_NEA D £QRC il <_L1 a ANO TRu n E CORE * T ( Si * 

|?f C .......... 

I 80 tn< i )■ («met < i wqlat i-orsenwbf < i • *t wi • ♦factor! i wti2 ) >/ 

isi • (aril wfactori i 1 1 

1 82 TsTEP-TNl l ) - T I 1 » 

1*3 TN(S)-(®HET<S)-OLAtS-ORSEnS*Bf<S)*T<*»| •♦FACTOR* S)«T| A) »✓ 

m ft uriii.tficiOftiin - 

l«* 

1 8 A c CALCULATE TEmPERATuREs OF REmA|NjN<, CORES --ARM!9»|3) ,lEG< 1 7*2| ) , 


187 

)88 

189 

A±9 

191 

192 

193 


C 

c- 


c- 

c 


195 
1 96 

C-« 

197 


)98 


199 


200 


201 


202 


203 


209 

c-- 

205 

c 

20 A 

c 

207 

C-- 

208 


209 


210 


211 


212 


213 

3 

219 

llJTJ- 

2 15 

C 

21 A 

C 


MAN D ( 2S*29 WAND F UO T ( 3 j ♦ 3 7 ) 

00 2 AO 1-9,37,9 

TMlLlflftHETt I Ltfif * I »•! Ml) ♦FACTOR! 1 ) • T ! I ♦ l 1 •/ 1 BF L| J ♦FACTOR LL1 1 

2 AO CONTINUE 

calculate the TEMPERATURES OF The MUSCLE”“»hEA0!2) • TRUNK ! A ) , arm ( T o* 
19)»LE<»U8»22 >,MANd!2A*30 , .F00T!3‘W38> 

„ TM(2) »lQHET12>"aLAT2-QRSEN2»rACTOIH 1 • • T LU ♦FAClQR LLl •J13J ♦ . 

• BFl2)*T!‘M))/!BF!2WFACT0Rll)*FACT0Rt2)) 
Tn!6)-(QMET!6)-8lATA-ORSENA*FaCTOR|S)*T(S)*FACTOR!A)«T!7)* 

• BF!A)*TIH»))/!BF!A)*FACT0R!S)»FaCT0R!A1) 

DO 280 1-10,38 w 

Tn! I ) ■ ( qmE T ( 1 WFACTOR! 1-1 1 • T 1 | ■ 1 •♦FACTOR! I > • T I !♦! )♦ 

• fttil ••I!il» »/!ftfJ_llPFACTOR! 1-1 JtFACTORUU __ 

80 CONTINUE 

CALCULATE TEMPERATURES of The FAT LAYER --head! 3 ) » TRuNk! 7 ) , arm! 1 l *15) 
LEG ! 1 9*23 ), HAND! 27*3 l ), FOOT! 35*39) 

TN<3W< QM ET< 3>-QL *t3 -QRSE N3*F AC TOR <2 UTl l ) ♦ F ACTOR ( 3 » • TJ_ 9 ) ♦ 

• BF!3)«T! < »l))/<BF!3)*FACT0R<2)*FACT0R!3n 
DO 300 J-7,39,9 

TNI I W!«MET< I WFACTOR! Wl WT< l-l WFACTOR! I )*T< !♦!)♦ 

• BF!I)*T<9J))/<BF(|)*FACt0R!I-1)*FACT0R!I)) 


CALCULATE TEMPERATURES OF THE skin --HEA 0 < 9 ) .TRUNKIB) , ARM! 12*1 A) , 
LEG<20*29),hAND!28*32),FOOT(3A*90> 


218 DO 320 1-9,90,9 

219 J-l/9 

220 TN(1)-( QMET < I WQLA T < J)- QScN( J)-q RAD (J ) -F ACTOR ! 1-lWT l WIW 

221 • BF1 I ) • T C 9 1 | )/IBF(i WFACtOr! 1-1 1) 

222 320 CONTINUE _ _ _ 

223 ................................ 

229 C CALCULATE TEMP OF CENTRAL BLOOD --<91) 

2 25 ~~ C- .............. ..... ............ .... 

22 A 350 SBC ON V ■ 0,0 

227 TBF-0,0 


00 JHO I " 1 • o 

HtOW>» 5 < (OWV»>y O )*TtH 

TBF ■ T BF ♦BF ( I ) 

)H0 CONTINUE 

TIM )»SQCONV/TBF 

£ "cXLCULATf’Avf5X2E"sFTN’TESpfSlTuNE’N27’5Asfo’oN"pERcCNTAftE’oF"*' 

* — loTAt sain area fO» Each 3*)n *o 0 E - -* t*at noo** tc h ^€ paT^e 

c ....... - .... 

T(*t2)»0«Q7*T( M*0*3A02«T<R>*0,0A7 0%M ( I 2 ) *0 • 0A?O6* T ( I A ) +0 • l SB 7 • 

. T<20>^0.|S«7M<2*U*0.025»T<2»>*0.02&M(32)*0,03NJ*Tl*A|* 

• O*03N3*T(H0) 

TlN3)«o#02325*T<2 , *o,5‘»9*T<A»*0,u5 27*T < »0»*0.o5 2T«HlN»*0.lbA7» 
, f l | ® ) *0. |b’2* T t 22) *0«00U b«T * 2A J ♦0*001 |S* T < iOl *0*001 ^ 

• T < 3H I *0.00 I | S*T ( 38 ) 

return 

END 
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0 B *- G 0 3 *« 32 Mrr*»C 0 NVRr, 

1 _ subroutine cqnyrgi t^tjusTorat .ncount .flag.epsi *nhaju 

2 DIMENSION TlO«IMI ) ,TLO«llNl ) .tLORZIMI) ,THlGMlMl ) .THaLFImI) » 

3 • Till) • T N I MO I 


M 

s 

6 

a 

v 

10 
1 1 
12 




C 

c convergence of thermal model to steady state 

C BY method Of SJCC E SSIyE SyBSTlTjON OF TEMP 

C FOLLOrED by half- l NTERVAL CONVERGENCE method 

c 

c flag • o.o successive Substitution method 

c flag • i#o half-interval method 

c flag • 2.0 convergence obtained 


U C_ return to main program 

h C 

15 

16 C 

17 C INITIALIZATION 


18 

If 

C 

1 FINC 0 UNT . 6 T t . 1 ) GO JO 2 . 


20 


DO 1 1-1 • M 1 


21 


TLOWI 1 ) - o.o 


22 


TLORl I I ) ■ 0.0 


23 


TL 0 R 2 I 1 ) ■ 0.0 


2 M 


THIGH! I ) > 0.0 


25 


JHM.FUJ • . 0.0 


26 


| CONTINUE 


27 


2 IF 1 ABSI STORAT) .L^ EPSI) 

GO tO 110 

28 


IFIFlAG .EQ* 1 . 0 ) GO TO 75 


29 


1 FINC 0 UNT .EQ* NMA X ) GO TO 

100 

30 

C 



.31 

C. _ 

DETERMINE if ncount LS 000 

OR Even 

32 

c 

IF NC ■ 0 , NCOUNT IS EVEN 


33 

c 



3 M 


NC ■ 1 NCOUNT / 2 ) • 2 . NCOUNT 



35 C 

36 C DETERMINE IF STorAt HAS CHANgfD S I gN 

38 IF INCOUNT ,EQ* I I S T LO • ^ 0 • 0 

39 IF ( STL0**ST0RAT .LT» 0.0) 60 T° 30 

MO STLO* ■ STORAT 

Ml C 

M2 C SAVE PREVIOUS VALUES OF T AnO STORAT FOr LAST TrO ITEpATloNs 

M3 C 

MM IFINC . EQ* 0) GO T 0 10 

M 5 DO 5 I»1 ,MI 

M 6 5 TL0R1 II) ■ T I I » 

M7 STL0R1 ■ STORAT 

MB GO TO 25 

M 9 10 OQ 20 1 ■ I , M I 

50 20 TL0W2I I ) ■ Til) 

51 STL0R2 • STORAT 

52 GO TO 25 

53 C 

5M C METHOD OF SUCCESSIVE SUBSTITUTION 

55 C 

¥4 25 DO 28 i-l, 4 o 


28 Tin ■ TNI I > 
- 60 -TO 06 


57 

58 

ST 

40 

41 


C 

c INITIALIZATION OF hAlF- I NTERvaL CONVERGENCE NCThOO 

C 


42 

43 
60 
4 S 

44 

47 

48 


JO ICOUNT • 0 
00 35 I • l .**| 

66 T HIGH* I *— • O+r* 

IF<NC . E Q . 0) 60 T 0 IS 
00 HO I -I ,Hl 
TLO* I 1 I ■ TLOMl I I I 
STLO* • STLO*l 


49 IF ( TLO* ( I I » NE » 0»0> 60 TO HO 

7 0 H — 4- 14 *- W 4 

71 STLO* • STORAT 


72 HO CONTINUE 

73 60 TO SS 



7 H 
7 S 
74 

77 

78 

79 


HS 00 SO l>l |H| 

TLO* I I > ■ TLORZ I I > 

S TLO* • STL 0* 2 

IF(TLOWII) » NE » 0*n) 60 To 60 

TL0*( I ) ■ TLO* l I I » 

STLO* ■ STLO* l 


80 60 CONTINUE 

81 65 ITER ■ ALOGl ABSIST lOR-StOrATI/EpSI )/A L 06(2.0l ♦ 


83 
8H 
85 

84 
87 
88 . 

89 

90 
9| 

92 

93 
?! 
95 

94 

97 

98 

99 


C HALF- I nterval iteration 

c 

40 ICOUNT ■ ICOUNT ♦ | 

IFIICOUNT • 6T • ITER) 60 To 10Q 
00 45 I • I ,H 1 

45 TM6LF1I) ■ ITH46M(|) ♦ TL0*<I»J/2.0 
DO 7 0 I-l ,HI 

70 T I I > » THALFI I ) 

GO TO 98 

75 IF(STlOR«STORAT .Lt» 0.0) GO TO 85 
DO 80 I-I , HI 

80 T4J1RUI ■ LHALFljl _ 

STLO* - STORAT 
GO TO 40 

85 DO 90 I-l ,Ht 

90 THIGH! I ) - THALFI I ) 

60 TO 40 


3.0 


10» C RETURN COMMANDS 

102 C 

103 95 FLAG - 0.0 

10H RETURN 

105 98 FLAG • 1.0 

1116 RETURN _ 

107 100 FLAG ■ 2.0 

108 *RlTE(4ilOS) NCOUNT. STORaT 

109 105 FORMAT I • •••••CONVERGENCE NOT nB T A I NED* • • • • • » H x • * NCO,,NT 

110 • lH(HX,* STORAT -■* » F 8 • 2 ). 

111 RETURN 

n2 x in xlaa-b . 2-i-Q 

113 WR I T E I 4 • 1 1 5 ) NCOUNT. STqRaT 
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lit 11% FOHHAT I // • f f ♦ f f C0N v C«6tNCr f f • f f N r OUNT •*, 

11% •jt*t*,* STOUAT •*.F4.2) 

114 ac Turn 

117 CND 



9 X-6M7.27-I r*M6U. 1/ 1 .6 

jO TEMP-X»l,8/(T*t60.)»l3.2tM*&.848L-3»X»l.|70E-8*A«*3l/<l**2.l8BE-3* 

II •*) 

|2 VPP-3207 ./ 10.*MEMp 

1 J »ITUtM 

I t END 


-G03t32*TPF*»SS0ATA 

1 LJ*IU_. 

2 2 283. 

3 3 U.O 

t t 2.0 


& % 75. 

4 4 75. 


7_ Z_52i 

8 8 |7,5 


9 9 It. 7 

10 |0 1.0 


11 11 .9 

12 12.9 

L3 JJ 1 22 







SAMPLE RUN #1 


>3PREP 

FURPUR 0026-07' 16-09 124 

>9MAP THERM 

MAP 0026-07' 16-0912? -<0»> 

START-014606. PROG SIZE* I'D, »6?93/3863 
$YSS*PL I 8$ . LEVEL 69 

END OF COLLECTION - TINE 4.134 SECONDS 
>9XGT 


41 -NODE THERMOREGULATORY STEPDY STATE MODEL. 
PEFEP TO GE-AGS USER GUIDE TIR 741 -NED-401? 


TO OBTAIN OUTPUT LISTS 1 - 6 WRITE "Y" UNDER APPROPIATE NUMBER. THEN CR 
1 2 3 4 ? 6 

>Y Y Y Y Y Y 


DO YOU WISH A LISTING OF INPUT PARAMETERS 7 <Y'N> CR 

>Y 


INPUT PARAMETERS SET TO FOLLOWING VALUES: 


INDEX 

NAME 


VALUE 

1 

RM 

X 

283.000 

2 

GBASAL 

3 

283.000 

3 

UEFF 

X 

22.000 

4 

POS 

S 

2.000 

5 

TCAB 

X 

7?. 000 

6 

TW 

3 

7?. 000 

7 

TDEWC 

X 

?2 . 000 

3 

VCAB 

X 

30.000 

9 

PC AB 

X 

14.700 

10 

G 

3 

1 .000 

11 

CLOV 

3 

.300 

12 

EUG 

3 

.9?0 

13 

CPG 

3 

.220 


- continued next page - 
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APPENDIX 2 
SAMPLE RUNS 


SAMPLE RUN #1: The following features are illustrated: a) Use of the 

"?PREP" , " #!AP THERM" , and commands in order to 

collect compiled elements and execute prog am, 
b) Internally stored input parameter values are listed 
following second prompt, c) The response to change the 
first and fourth input parameters (note the "READ ERROR" 
that occurred when a value of 4. was entered which was 
outside the allowable range), and d) Output lists #1-6 
corresponds to those specified following first prompt. 


SAMPLE RUN #2: The following features are illustrated: a) Use of the 

”'<$ADD SSDATA" command following third prompt to enter 
a string of data from an external element, b) Input 
parameters may still be changed after the initial input, and- 
c) Output lists #2 and 4 correspond to those specified 
following first prompt. 



SAMPLE RUN #1 - continued 
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TO CHANGE INPUT. ENTER INDEX N0.<1-15>» VALUE <I2»E15.5> 
♦♦♦WHEN LIST IS COMPLETED TYPE "-1“» THEN CP*#*# 

> 1 1200 . 

♦♦♦ 1 1200.0000 

>4 4. 

♦ ♦READ ERROR •♦♦PL EASE TRY AGAIN^^ 

> 41 . 

♦♦♦ 4 1.0000 

>-l 


INPUT PARAMETERS SET TO FOLLOWING VALUES* 


INDEX 

NAME 


VALUE 

1 

RM 

X 

1200.000 

2 

GBASAL 


283.000 

3 

UEFF 

as 

22.000 

4 

POS 

X 

1 .000 

5 

TCAB 

X 

75.000 

6 

TW 

X 

75.000 

7 

TDEWC 

fli 

52.000 

3 

VCAB 

X 

30.000 

9 

PCAB 

X 

14.700 

10 

G 

= 

1 .000 

1 1 

CLOV 

X 

.300 

12 

EUG 

X 

.950 

13 

CPG 

X 

.220 


! ! ! JCDNVERGENCE ! ! ! ! ! NCOUNT * 7? STORAT = .24 


EVAPORATIVE LOSS PATE AT STEADY STATE 

<GMS HR > 

RESPIRATION* 32.07 

SKIN DIFFUSION* 3.16 DIFF MAX* 31.99 

SWEAT* 199.54 

TOTAL INSENSIBLE LOSS* 40.24 

TOTAL SKIN LOSS* 207.70 SKIN EVAP . MAX* 533.20 
TOTAL EVAP. LOSS* 239.78 

WETTED AREA<*> FOR 

SKIN DIFF* 1 .53 

SWEAT* 37.42 

SWEAT ♦ DIFF* 38.95 

DRIP* .00 WETNESS'DRIVE* .0317 


- continued next pape - 



SAMPLE RUN #1 - continued 
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TEMPEPRTUPES ■ 

- DEG F 

Bl.OOD FLOW 

- L 'MIN 

HERD COPE* 

99.07 

SKIN: 

.90 

TRUNK COPE: 

99.41 

MUSCLE : 

4.33 

ENTPRL BLOOD: 

99.0* 

TOTRL : 

9.62 

RVG MUSCLE: 

93.76 



RVG SKIN: 

99.41 




QBRSRL : 

283.00 

HERT BRLRNCE <BTU'HP> 

OSENS: 448.75 OSTOP^BTU 

QWOPK : 

713.26 

QF.VRP: 549.27 

QSHIV : 

.00 

STOPRT : .24 



CONTROLLER 

SIGNRLS 


SWERT : 

457.83 

WRPM< 1 ) : 

.54 

QSHIV: 

.00 

COLD< 1 ) : 

.00 

DILRT : 

88 .34 

WRPMS : 

.70 

STPIC : 

.00 

COLDS : 

-.51 




BODY SUPFRCE 

TEMPEPRTURES - 

DEG F 


HERD 

TRUNK 

RPMS 

LEGS 

HRNDS 

SKIN: 

94.18 

91 .50 

94.04 

94.99 

96.83 

CLOTHING: 

94.18 

87.13 

88.44 

89.27 

96.83 


307.48 


FEET 

96 .33 


96.33 


HERT TPRNSFER COEFFICIENTS 
CONDUCTION: 

TOTRL BODY< BTU 'HR> : 191.88 
FORCED CONVECTION COEF . .HC : .31 
NRTUPRL CONVECTION COEF . .HC 1 : .33 


P8DI8TI0N : 

TOTRL BODY < BTU'HR) s 233.37 

PRDIRT ION COEF.. HRs .56 


MRXIHUN E VRPDPRT I ON r 

TOTRL BODY<BTU HR> s 1221.42 
FORCED CONVECTION COEF. HE: .00 
HRTUPRL CONVECTION COEF.. HE 1: 77.01 
CLOTHING COEF . «HECL : 2978.74 
COMBINED COEF..HEVRP; 293.06 


DO YOU WISH TO STRPT NEW PUN? <Y'N> CP 
>N 
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SAMPLE RUN #2 


41-NDDE THERMOREGULATORY STEADY STATE MODEL 
REFER TO GE-AGS USER GUIDE TIP 741-MED-4015 


TO OBTAIN OUTPUT LISTS 1 - 6 WRITE M Y" UNDER APPPOPIATE NUMBER* THEN CR 
1 2 3 4 5 6 

>N Y N Y N N 


DO YOU WISH A LISTING OF INPUT PARAMETERS? <Y'N> CP 

>N 

TO CHANGE INPUT* ENTER INDEX ND.<1-15>* VALUE 'I2*E15 5'* 

♦♦♦WHEN LIST IS COMPLETED TYPE "-l"* THEN «>♦♦♦♦ 

>5>ADD SSDATA 



♦ ♦♦ 

1 

360.0000 


♦♦♦ 

2 

283.0000 


♦♦♦ 

3 

.0000 


♦♦♦ 

4 

2.0000 


♦♦♦ 

5 

75.0000 


♦♦♦ 

6 

75.0000 


♦♦♦ 

7 

52.0000 


♦♦♦ 

8 

17.5000 


♦♦♦ 

9 

14.7000 


♦♦♦ 

10 

1.0000 


♦♦♦ 

1 1 

.9000 


♦♦♦ 

12 

.9000 


♦♦♦ 

13 

.2200 

> 1 

500. 




♦♦♦ 

1 

500.0000 

> 3 

22. 




♦♦♦ 

3 

22.0000 

>11 

0.5 




♦♦♦ 

1 1 

.5000 

>-l 





- continued next page - 



SAMPLE' RUN #2 


continued 


INPUT PARAMETERS SET TO FOLLOWING VALUES: 


NDEX 

NAME 


VALUE 

1 

PM 

2 

300.000 

2 

QBAi AL 

s 

283.000 

3 

UEFF 

s 

22.000 

4 

PCS 

= 

2.000 

5 

TCRB 

s 

73.000 

6 

TW 

= 

73.000 

7 

TDEWC 

s 

32.000 

8 

VCAB 

s 

17.500 

9 

PCAB 

s 

14.700 

10 

G 

s 

1 .000 

1 1 

CLOV 

s 

.500 

12 

EUG 

s 

.900 

13 

CPG 

s 

.220 


! ! ! 'CONVERGENCE 


NCDUNT * 1* 3T0RRT * -.23 


TEMPERATURES 

- DEG F 

BLOOD FLOW 

- L ''M IN 

HEAD CURE: 

98.59 

SK I N : 

.38 

TRUNK CORE: 

98 . 73 

MUSCLE : 

1 .17 

CENTRAL BLOOD : 

98 . 39 

TOTAL : 

5.92 

AVG MUSCLE: 

94.86 



AVG SKIN: 

93 . 73 





CONTROLLER 

SIGNALS 


SWEAT : 

127.03 

WAPM< 1 ) : 

.06 

QSHIV : 

. 00 

COLDC 1 > : 

. 00 

DILAT : 

20.90 

WARMS : 

1.17 

STRIC : 

.00 

COLDS: 

-.12 


DO YOU WISH TO START NEW PUN 7 <Y/N> CP 
N 


